home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d14 / demdat.arc / PREVIEW.SBP < prev    next >
Text File  |  1990-06-01  |  6KB  |  264 lines
  1. SBP
  2.   ╜     PREVIEW
  3.   ╜     Superbase 4 Windows
  4.   ╜     Trial Pack Preview Program
  5.   ╜     Last updated May 16, 90
  6.  
  7.   Γ e
  8.   ┤ £"prev"
  9.   wstart
  10.  
  11. swait: ╜ routine to wait for next page
  12.  click$ ""
  13.   ╧ ▀  Ñ
  14.   ¥a$
  15.   ía$  (27) p wsend
  16.  a$  =(a$)
  17.   ía$ "a" pclick$ "y"
  18.   íclick$ "y" p wswait
  19.   ├
  20.  
  21. scroll: ╜ routine to see 3 records
  22.   ¢i% 1 q3
  23.   ╔ £ ▒
  24.   ╬: vswait
  25.   ▒i%
  26.   ├
  27.  
  28. start: ╜ Intro as far as session selection
  29.   vswait
  30.  
  31. vga: ╜ Select if VGA
  32.   í σsys(7) 
  33. 400 pvga$ "n" ^vga$ "y"
  34.  
  35.   £3: vswait
  36.   £4: vswait
  37.   £5: wfwait
  38.  
  39. fret: ╜ Session select
  40.   ╩ ╦"Make another preview selection"
  41.   ┤ £"prev0"
  42.  
  43. fwait: ╜ Wait here 
  44.   ╧ ▀  Ñ
  45.   ¥a$:a$  =(a$)
  46.   ía$ "" p wfwait
  47.   ía$ "a" p wsess1
  48.   ía$ "b" p wsess2a
  49.   ía$ "c" p wsess2b
  50.   ía$ "d" p wsess3
  51.  
  52. send: ╜ End
  53.   å £: ╩ ƒ"": å t: Γ │: ╩ f │
  54.   ┬"Please refer to the Trial Pack Booklet for instructions on:","how to proceed with the hands-on sessions",100,a%
  55.   Æ
  56.  
  57. sess1: ╜ The primary work surface
  58.   ívga$ "y" p ┤ £"prev1a" ^ ┤ £"prev1ae"
  59.   ╩ ╦"Browsing through an address file in Lastname sequence"
  60.   vswait: ╜ browsing in Lastname sequence 
  61.  
  62.   £2: ╧ ¢1
  63.   ¢i% 1 q15: ╔ ▒: ╬: ▒i%
  64.   ╧ ¢1
  65.   ¢i% 1 q15: ╔ g: ╬: ▒i%
  66.   ╧ ¢1
  67.  
  68.   ╩ ╦"Browsing through an address file in City sequence"
  69.   £3: vswait : ╜ or in city sequence
  70.   úCity
  71.   ╔ `
  72.   £2: ╧ ¢1
  73.   ¢i% 1 q15: ╔ ▒: ╬: ▒i%
  74.   ╧ ¢1
  75.   ¢i% 1 q15: ╔ g: ╬: ▒i%
  76.   ╧ ¢1
  77.   úLastname
  78.  
  79.   ívga$ "n" p wfbrowse
  80.   ╩ ╦"Viewing related image and text files"
  81.   £4: vswait
  82.   ╔ Ñ"Arnauld"
  83.   £2: ╧ ¢1
  84.   £ ╚5: ╧ ¢2
  85.  
  86. fbrowse: 
  87.   ╩ ╦"Browsing with a table form"
  88.   ┤ £"prev1b": vswait
  89.   ╔ `
  90.   £2
  91.  skey$ Lastname
  92.   ¢i% 1 q5
  93.  ╔ Ñskey$
  94.  ¢j% 1 q10
  95.  ╔ ▒
  96.  íj% 1 pskey$ Lastname
  97.  ═ £ "j%
  98.  ▒j%
  99.  ╬
  100.   ▒i%
  101.   ╧ ¢2
  102.   ¢i% 1 q5
  103.  ¢j% 1 q10
  104.  ╔ g
  105.  ▒j%
  106.  ¢J% 1 q10
  107.  ═ £ "j%
  108.  ╔ ▒
  109.  ▒j%
  110.  ╬
  111.  ╔ g
  112.   ▒i%
  113.   ╧ ¢2
  114.  
  115.   ╩ ╦"Selecting address records where country like USA"
  116.   £3: vswait
  117.   ╔ ╨Country.ADDRESS "usa"
  118.   ü £
  119.   £2
  120.   ╔ `
  121.   ¢J% 1 q10
  122.  ═ £ "j%
  123.  ╔ ▒
  124.   ▒j%
  125.   ╬: ╧ ¢4
  126.   ╔ ╨
  127.   ╩ ╦""
  128.   £4: vswait
  129.   wfret
  130.  
  131. sess2a: ╜ Dealer Map
  132.   ╩ ╦"The Dealer Map: a simple form-based application"
  133.   ┤ £"prev2a": vswait
  134.   ╩ ╦"Click on any area or on the Dealers pushbutton"
  135.   £2: click$ ""
  136.   ╪click$ "y"
  137.  ╧ ▀
  138.  ╧ ¢3
  139.   ┘
  140.   ╩ ╦""
  141.   £3: vswait
  142.   ╩ ╦"Viewing Dealers for the selected area"
  143.   £4:click$ ""
  144.   ╪click$ "y"
  145.  ╧ ▀
  146.   ┘
  147.   wfret
  148.  
  149. sess2b: ╜ Trading System
  150.   ╩ ╦"The Trading System: a programmed application"
  151.   ┤ £"prev2b": vswait
  152.   £2: vswait: ╜ Currencies page
  153.   £3: vswait
  154.   ┤ £"prev2c": vswait: ╜ Countries page
  155.   £2: vswait
  156.  
  157.   ┤ £"prev2d": vswait: vscroll: ╜ Clients page 1
  158.   £2: vswait
  159.  
  160.   ┤ £"prev2e": vswait: ╜ Stocks pages 1 and 2
  161.   ¢i% 1 q2
  162.  £2: vswait
  163.  ╔ £ ▒
  164.  £1: vswait
  165.   ▒i%
  166.   £2: vswait
  167.   £3: vswait
  168.  
  169.   ┤ £"prev2f": vswait: vscroll: ╜ Trans
  170.   £2: vswait
  171.  
  172.   ┤ £"prev2g": vswait: vscroll: ╜ Clients page 3
  173.   £2: vswait 
  174.  
  175.   ┤ £"prev2h":
  176.   ╔ £ Ñ"Charter": ╬
  177.   vswait: vscroll: ╜ Stocks page 3
  178.  
  179.   £2: vswait
  180.  
  181.   ╩ f e:  ╜ Contract notes
  182.  docf$ "previnvs":letf$ "prevlet"
  183.   í J("previnvs.sbf") p wfmerge
  184.   ╔Stock_Key.TRANS,Customer_Ref.TRANS,Transaction ref,Trans_Type,Trans_Desc,Trans_Date,Settlement_Date, (Quantity.TRANS,6,0) U"QTY", (Stock_Price.TRANS,6,2) U"PR",Currency.TRANS,USD Xrate.TRANS,
  185.  ( (USD Value.TRANS),6,2) U"USDV",(Comm_Value) U"Com", ( (USD Value.TRANS Comm_Value),6,2) U"TV",&24(Client.CLIENTS) U"Client",Company.CLIENTS,Street.CLIENTS,Address.CLIENTS,City.CLIENTS,
  186. State.CLIENTS,Zip_Code.CLIENTS,Country.CLIENTS,Company Name.STOCKS,Stock_Type,Exchange
  187.  ╨Customer_Ref.TRANS Customer_Ref.CLIENTS  Stock_Key.TRANS Stock_Key.STOCKS  Invoice_Sent_yn.TRANS "n"
  188.  q Ödocf$
  189.   Æ ╔
  190.  
  191. fmerge: 
  192.   ┤ Ödocf$
  193.   ¿ oletf$: ╔ `
  194.   ╪ O B(docf$)
  195.  { o ¡
  196.  ╧ ¢2
  197.  ╔ ▒
  198.   ┘
  199.  
  200.   ívga$ "y" p ┤ £"prev2j" ^ ┤ £"prev2je"
  201.   vswait
  202.   £2: vswait: vscroll: ╜ statements
  203.   £3: vswait
  204.  
  205. freport: 
  206.   ▓"z-99999.00": ╩ f e
  207.  hd1$ "Client Trading Balances at "  ( Q,"mmm dd,yy")
  208.  hd12$ "Ref: STKRBE"
  209.  
  210.   ┴USD Value.TRANS,Comm_Value.TRANS,Total_Due.TRANS
  211.   } ┴
  212.   {@52;"   =========  ==========  ==========="
  213.   {@1;"Totals for Client Trading Balance Report";@54;&6.2 lUSD Value.TRANS;@67;&11 lComm_Value.TRANS;@79;&6.2 lTotal_Due.TRANS
  214.   {@52;"   =========  ==========  ==========="
  215.   Æ ┴
  216.  
  217.   ƒ
  218.   {@1;hd1$;@66;hd12$
  219.   {
  220.   {@1;"Client ref Name                   Location                 Telephone "
  221.   {@1;"Date      b/s Ref    Quantity  Curr units      Price  US$ Value  Commission    Total Due"
  222.   {@1;"--------- --- ------ --------  ----------  ---------  ---------  ----------  -----------"
  223.   Æ ƒ
  224.  
  225.   ₧Customer_Ref.TRANS,USD Value.TRANS,Comm_Value.TRANS,Total_Due.TRANS
  226.   Ç ₧Customer_Ref.TRANS
  227.   {
  228.   {@1;&8Customer_Ref.TRANS;@10;&24Client.CLIENTS;@35;&24Location.CLIENTS;@60;&3Dialcode.COUNTRY;@64;&16Telephone.CLIENTS
  229.   Æ ₧
  230.  
  231.   } ₧Customer_Ref.TRANS
  232.   {@54;" ---------  ----------  ------------"
  233.   {@1;"Totals for ";&15 ₧;@55;&12 lUSD Value.TRANS;&11 lComm_Value.TRANS;@80;&12 lTotal_Due.TRANS
  234.   {@55;"---------  ----------  ------------"
  235.   Æ ₧
  236.  
  237.   ╔@1;&10Trans_Date.TRANS;@12;&1Trans_Type.TRANS;@14;&7Transaction ref.TRANS;@22;&9Quantity.TRANS;
  238.  @32;&8Units.CURRENCY;@41;&12Stock_Price.TRANS;@54;&10USD Value.TRANS;@65;&11Comm_Value.TRANS;@78;&11Total_Due.TRANS
  239.   ╨Currency.TRANS Currency.CURRENCY  Customer_Ref.CLIENTS Customer_Ref.TRANS  Name.COUNTRY Country.CLIENTS
  240.   ╡Customer_Ref.TRANS,Transaction ref.TRANS
  241.  
  242.   ╧ ¢2
  243.   wfret
  244.  
  245. sess3: ╜ Form Designer
  246.   ┤ £"prev3a": vswait
  247.   ¢i% 2 q10
  248.  £i%: vswait
  249.   ▒i%
  250.  
  251.   ┤ £"prev3b": vswait
  252.   ¢i% 2 q6
  253.  £i%: vswait
  254.   ▒i%
  255.  
  256.   ┤ £"prev3c": vswait
  257.   £2: vswait
  258.   ┤ £"prev3d": vswait
  259.   £2: vswait
  260.   £3: vswait
  261.   wfreport
  262.  
  263.  
  264.